Fix specpdl loop typo.

diff --git a/src/data.c b/src/data.c
index 211a64661ac70b24834200cdaf9bdc5b67ba4c67..b81d1b88545ecf4efd6d5ecb5baf9a53e5842f65 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1094,7 +1094,7 @@ let_shadows_global_binding_p (Lisp_Object symbol)
 {
   struct specbinding *p;
 
-  for (p = specpdl_ptr; p > specpdl; p)
+  for (p = specpdl_ptr; p > specpdl; )
     if ((--p)->func == NULL && EQ (p->symbol, symbol))
       return 1;
 

diff --git a/src/eval.c b/src/eval.c
index 5fa9a945ef54dbf2f90f2713e848a4b75accb3e1..b4ef785b3c73a750173b887b32f5754ffbd20122 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -758,7 +758,7 @@ The return value is BASE-VARIABLE.  */)
   {
     struct specbinding *p;
 
-    for (p = specpdl_ptr; p > specpdl; p)
+    for (p = specpdl_ptr; p > specpdl; )
       if ((--p)->func == NULL
          && (EQ (new_alias,
                  CONSP (p->symbol) ? XCAR (p->symbol) : p->symbol)))